home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / 0132.ZIP / SENDCHAR.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-02  |  384b  |  17 lines
  1. PROCEDURE SENDCHAR (CC : byte);
  2.   begin
  3.     while not modem_output_ready do;
  4.     modem_output (cc);
  5.     if showtrans then
  6.     begin
  7.       if asciiflag then
  8.       begin
  9.         if ((cc >= ord(' ')) and (cc <= ord('~'))) then
  10.             write (cc) else hexwrite (cc);
  11.       end
  12.       else hexwrite(cc);
  13.     end;
  14.   end;
  15.  
  16. d (cc <= ord('~'))) then
  17.             write (cc)